home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / ftransd_.lha / FTransD_2.1a / ARexx-Scripts / FTCed3.ced < prev    next >
Text File  |  1995-09-29  |  2KB  |  76 lines
  1. /* $VER: FTCed3.ced 1.0 (27.09.95)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
  4.  *
  5.  * ARexx-Script, daß das Wort unter dem Cursor von CygnusEd an FTrans
  6.  * weiterleitet und das Ergebnis der Übersetzung in einem Requester
  7.  * in CygnusEd anzeigt. Bei drücken von OK wird der Text einfügt.
  8.  *
  9.  * V1.0 initial release. Abwandlung aus FTCed2.ced 1.2 (05.06.95).
  10.  *      Der Unterschied besteht darin, daß bei Bestätigung von "OK"
  11.  *      das Wort in den Text übernommen wird, bzw. bei "Cancel"
  12.  *      (Abbruch) das Wort nicht eingefügt wird.
  13.  */
  14.  
  15. options results
  16.  
  17. CR = '0A'X                     /* Carrige Return                    */
  18. BLOCKFILE  = 't:FTransWort'    /* Dateiname für Austausch festlegen */
  19.  
  20. /*
  21.  * rexxcedsupport.library einbinden.
  22.  */
  23.  
  24. if ~show('l',"rexxcedsupport.library") then do
  25.    call addlib 'rexxcedsupport.library',0,-30,0
  26.    if (result = 0) then do
  27.      okay1 "Die rexxcedsupport.library kann nicht eingebunden werden!" CR || "Evtl. ist die rexxcedsupport.library nicht installiert..."
  28.      exit
  29.    end
  30. end
  31.  
  32. /* --- ob FTrans aktiv ---*/
  33.  
  34. if ~show( 'p', 'FTRANS.1' ) then do
  35.   okay1 "Oops! FTrans ist nicht aktiv." CR || "Bitte FTrans aktivieren..."
  36.   exit
  37. end
  38.  
  39. /* --- CygnusEd --- */
  40.  
  41. on = 0                         /* Merker vorbesetzen                     */
  42.  
  43. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen             */
  44.  
  45. cedwort = csgetword()          /* Wort unter Cursor von CygnusEd abholen */
  46.  
  47. /* --- FTRANS --- */
  48.  
  49. address 'FTRANS.1'             /* FTrans Arexx-Port suchen               */
  50.  
  51. LOCKGUI                        /* GUI von FTrans sperren                 */
  52.  
  53. WORTARG cedwort
  54. uebersetzung = result
  55.  
  56. UnlockGUI                      /* GUI von FTrans wieder entsperren       */
  57.  
  58. /* --- CygnusEd --- */
  59.  
  60. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen */
  61.  
  62. ausgabe = 'Das englische Wort : ' || cedwort CR || 'bedeutet in deutsch: ' || uebersetzung
  63.  
  64. /* War die Übersetzung positiv oder negativ? */
  65.  
  66. if((right(uebersetzung, 1) == '}' | left(uebersetzung, 1) == '{')) then
  67.   ausgabe = 'Das Wort ' || uebersetzung || ' kommt im' CR || 'aktuellen Wörterbuch nicht vor!'
  68.  
  69. okay2 ausgabe                   /* Nun rufen wir das Requester in CygnusEd auf */
  70. if result=0 then exit 0
  71.  csdelword()
  72.  TEXT uebersetzung             /* Text wieder einfügen, evtl. übersetzt */
  73. endif
  74.  
  75. exit 0
  76.